*****************************************************************
*																*
*				Title: misc_figures	 	 	   	*		
*															    *
*****************************************************************

/*  ================================  NOTES  ================================

+ PURPSOSE:
	
	In this do-file we replicate figure A.3. Underlying data are from 
	Harley (1998)
	
 
		
+ Inputs:

		* 1. british_yarn_prices.xlsx


==============================  TOP MATTER ==============================*/

*set paths 
	global proc_data "`pdir'/data"
	global output "`pdir'/outputs/appendix"

********************************** END HEADER **********************************	


import excel using "$proc_data/british_yarn_prices.xlsx", firstrow clear

line count_18_def count_40_def count_100_def year if inrange(year, 1780, 1830), ///
lc(black black black) lp(solid dash dot) xtitle("") ytitle("Real price (d. per lb.)") ///
legend(pos(6) col(3) label(3 "100 twist") label(2 "40 warp") label(1 "18 weft")) ///
 xscale(range(1780 1830)) xlabel(1780[5]1830) graphregion(color(white))
 
 
graph export "$output/Figures/Figure_A3.pdf", as(pdf) replace
graph export "$output/Figures/Figure_A3.png", as(png) replace
graph export "$output/Figures/Figure_A3.eps", as(eps) replace
